COMMENT ⊗   VALID 00002 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	SHUFFLE X ← SHUFFA(CYCLE X,LENGTH X,RANDOM LENGTH X,NIL)
 00004 ENDMK
⊗;
SHUFFLE X ← SHUFFA(CYCLE X,LENGTH X,RANDOM LENGTH X,NIL);

SHUFFA(X,N,M,W) ← IF M=0 
	THEN (LAMBDA (Z); IF N=1 THEN Z ELSE SHUFFA(RPLACD(X,CDDR X),N-1,
			RANDOM(N-1),Z)) (CADR X . W)
	ELSE SHUFFA(CDR X,N,M-1,W);


H1 ← '(10 6 4 1 7 5 5 4 12 12 9 1 7 8 4 13 6 11 9 2 8 7 4 11 13 13 12 5 11
3 2 7 8 12 2 10 10 3 13 1 10 3 8 6 1 3 9 9 11 5 2 6);

H2 ← '(4 8 7 9 3 2 7 10 8 1 11 3 5 5 7 8 2 2 3 12 13 10 11 9 6 1 13 11 6 11
8 9 9 5 4 6 10 12 1 4 12 6 1 2 10 3 13 7 5 12 13 4);

END;